unit uRSUFuncExport;

interface
uses
   Forms,ShellAPI,Windows,Dialogs,SysUtils,uDataSys,uFuntionSys;
   
var
   DllApplication: TApplication;
   DllScreen:TScreen;

function PFun01AdminDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun01AdminDomain(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun01AdminStation(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun01OprateDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun02AdminFunc(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun03FuncHistory(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun04Log(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun05FuncPri(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun06AdminPri(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun07DBBackup(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun08MonitorDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun09QueryEvent(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
function PFun10VerifyPathCode(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;

implementation
uses
   uFrm01AdminDevice,uFrm05AdminFunc, uFrm08FuncHistory,uFrm09Log,uFrm09FuncPri,
   uFrm12AdminPri,uFrmDBBackUp,uFrm13MonitorDevice,uFrm15QueryEvent,uFrm17VerifyPathCode;

exports
    PFun01AdminDevice, PFun02AdminFunc, PFun01AdminDomain, PFun01AdminStation,
    PFun01OprateDevice, PFun03FuncHistory, PFun04Log,PFun05FuncPri,PFun06AdminPri,
    PFun07DBBackup,PFun08MonitorDevice, PFun09QueryEvent,PFun10VerifyPathCode;
    
function PFun01AdminDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
var
   Frm:TFrm01AdminDevice;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Frm:=TFrm01AdminDevice.Create(ParentApp);
    Frm.PEnableEditPri('editPri');
    Result := Frm;
end;

function PFun01AdminDomain(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
var
   Frm:TFrm01AdminDevice;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Frm:=TFrm01AdminDevice.Create(ParentApp);
    Frm.SetWorkMode('domain');
    Frm.PEnableEditPri('editPri');
    Result := Frm;
end;
function PFun01AdminStation(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
var
   Frm:TFrm01AdminDevice;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Frm:=TFrm01AdminDevice.Create(ParentApp);
    Frm.SetWorkMode('station');
    Frm.PEnableEditPri('editPri');
    Result := Frm;
end;
function PFun01OprateDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
var
   Frm:TFrm01AdminDevice;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Frm:=TFrm01AdminDevice.Create(ParentApp);
    Frm.SetWorkMode('readonly');
    Frm.PEnableEditPri('editPri');
    Result := Frm;
end;

function PFun02AdminFunc(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm05AdminFunc.Create(ParentApp);
end;

function PFun03FuncHistory(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm08FuncHistory.Create(ParentApp);
end;

function PFun04Log(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm09Log.Create(ParentApp);
end;
function PFun05FuncPri(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm09FuncPri.Create(ParentApp);
end;

function PFun06AdminPri(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm12AdminPri.Create(ParentApp);
end;

function PFun07DBBackup(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrmDBBackUp.Create(ParentApp);
end;

function PFun08MonitorDevice(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm13MonitorDevice.Create(ParentApp);
end;

function PFun09QueryEvent(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm15QueryEvent.Create(ParentApp);
end;

function PFun10VerifyPathCode(ParentApp: TApplication;ParentScreen:TScreen):TForm; export; stdcall;
begin
    Application:=ParentApp;
    Screen:=ParentScreen;
    Result:=TFrm17VerifyPathCode.Create(ParentApp);
end;
{
 delete from TAD01_domain
 delete from TAD02_station
 delete from TAD03_device
 delete from TBD01_priority
 delete from TBD02_operate
 delete from TBD03_oper_history
 delete from TBD06_log
 delete from TBD07_funcpri
 delete from TBD08_event
}

end.
